(debug-on-quit): Define like debug-on-error.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index e3950dd82ec883f72192d7042a6ea6c3fac6eb9c..efa46c37bda7fbe30b9833b6329577716f501ce8 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -93,7 +93,12 @@
                                             (symbol :format "%v"))
                                     (const :tag "always" t)))
             (debug-ignored-errors debug (repeat (choice symbol regexp)))
-            (debug-on-quit debug choice)
+            (debug-on-quit debug
+                           (choice (const :tag "off")
+                                   (repeat :menu-tag "When"
+                                           :value (nil)
+                                           (symbol :format "%v"))
+                                   (const :tag "always" t)))
             ;; fileio.c
             (insert-default-directory minibuffer boolean)
             ;; frame.c